home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / zippro.zip / ZIPPRO.WAS < prev    next >
Text File  |  1992-12-10  |  966b  |  43 lines
  1. ;ZipPro Version 1.2***********************************;
  2.  
  3. proc main
  4.   fopen 0 "f:\prowin\capture\fileclip.txt" READ TEXT
  5.     if not success
  6.       usermsg "could not open fileclip.txt"
  7.     endif
  8.  while not feof 0
  9.     fgets 0 S0
  10.     if not strfind S0 ".ZIP"
  11.     loopwhile
  12.       endif
  13.     strcmp S0 $nullstr
  14.     if success
  15.       exitwhile
  16.     else
  17.     call md_fzip
  18.     call Zip_process
  19.   endif
  20.  endwhile
  21. fclose 0
  22.  ;delete "f:\prowin\capture\fileclip.txt"  ;remove the first ";" if you
  23.                                            ;want to delete the fileclip.txt
  24.                                            ;file.
  25. endproc
  26.  
  27. proc md_fzip
  28.   strcpy S1 S0
  29.   strupr S1
  30.   strreplace S1 ".ZIP" ""
  31.   strfmt S2 "g:\test\%s" S1
  32.   mkdir S2
  33. endproc
  34.  
  35. proc zip_process
  36.   chdir "F:\PROWIN\DNLOAD"
  37.   strfmt S3 "d:\pkz\pkunzip f:\prowin\dnload\%s g:\test\%s" S0 S1
  38.   dos S3 hidden
  39.    if not success
  40.       usermsg "could not unzip"
  41.     endif
  42. endproc
  43.